home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 6-Apple⁄DEC Alliance / Solutions & Networking Guide / Macintosh Networking Guide / Macintosh Networking Guide / card_10716.txt < prev    next >
Text File  |  1990-04-17  |  6KB  |  314 lines
  1. -- card: 10716 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 14812
  5. -- name: LimitHost
  6.  
  7.  
  8. -- part 2 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=0 top=21 right=133 bottom=109
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: DigitalSol
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=110 top=21 right=133 bottom=219
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 9
  31. -- style flags: 0
  32. -- line height: 12
  33. -- part name: IBMSol
  34.  
  35.  
  36. -- part 4 (field)
  37. -- low flags: 01
  38. -- high flags: 0002
  39. -- rect: left=221 top=21 right=133 bottom=330
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 12
  47. -- part name: MacSol
  48.  
  49.  
  50. -- part 5 (field)
  51. -- low flags: 01
  52. -- high flags: 0002
  53. -- rect: left=331 top=21 right=133 bottom=440
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 9
  59. -- style flags: 0
  60. -- line height: 12
  61. -- part name: PCSol
  62.  
  63.  
  64. -- part 6 (field)
  65. -- low flags: 01
  66. -- high flags: 0002
  67. -- rect: left=0 top=134 right=246 bottom=109
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 9
  73. -- style flags: 0
  74. -- line height: 12
  75. -- part name: TandemSol
  76.  
  77.  
  78. -- part 7 (field)
  79. -- low flags: 01
  80. -- high flags: 0002
  81. -- rect: left=110 top=134 right=246 bottom=219
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: UNIXSol
  90.  
  91.  
  92. -- part 8 (field)
  93. -- low flags: 01
  94. -- high flags: 0002
  95. -- rect: left=221 top=134 right=246 bottom=330
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 12
  103. -- part name: WangSol
  104.  
  105.  
  106. -- part 9 (button)
  107. -- low flags: 00
  108. -- high flags: 0001
  109. -- rect: left=27 top=257 right=287 bottom=91
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 9301 / 9301
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: Previous
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   go prev card
  121. end mouseUp
  122.  
  123.  
  124.  
  125. -- part 11 (button)
  126. -- low flags: 00
  127. -- high flags: 0001
  128. -- rect: left=100 top=257 right=287 bottom=164
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 27009 / 27009
  131. -- text alignment: 1
  132. -- font id: 0
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Previous
  137. ----- HyperTalk script -----
  138. on mouseUp
  139.   go next card
  140. end mouseUp
  141.  
  142.  
  143.  
  144. -- part 13 (button)
  145. -- low flags: 00
  146. -- high flags: 8003
  147. -- rect: left=209 top=265 right=292 bottom=301
  148. -- title width / last selected line: 0
  149. -- icon id / first selected line: 0 / 0
  150. -- text alignment: 1
  151. -- font id: 0
  152. -- text size: 12
  153. -- style flags: 0
  154. -- line height: 16
  155. -- part name: limitHost
  156. ----- HyperTalk script -----
  157. on mouseUp
  158.   repeat with i = 1 to 7
  159.     put empty into cd fld i
  160.   end repeat
  161.   limitEnv
  162. end mouseUp
  163.  
  164. on limitEnv
  165.   set cursor to watch
  166.   set the lockScreen to true
  167.   push card
  168.   go cd "Mac Grid"
  169.   global env,sol,solutions,DigitalSol,IBMSol,MacSol,PCSol,TandemSol
  170.   global UNIXSol,WangSol
  171.   put empty into listing
  172.   put empty into DigitalSol
  173.   put empty into IBMSol
  174.   put empty into MacSol
  175.   put empty into PCSol
  176.   put empty into TandemSol
  177.   put empty into UNIXSol
  178.   put empty into WangSol
  179.   repeat with i = 1 to 56
  180.     get cd fld i
  181.     put it into yum
  182.     put empty into holder
  183.     repeat with x = 1 to the number of lines of yum
  184.       if item 2 of line x of it <> empty then
  185.         put line i of it & return after holder
  186.       end if
  187.     end repeat
  188.     if holder <> empty then
  189.       put the short name of cd fld i & return after listing
  190.     end if
  191.   end repeat
  192.   pop card
  193.   set lockScreen to false
  194.   repeat with j = 1 to the number of lines of listing
  195.     if first word of line j of listing is "Digital"
  196.     then
  197.     put second word of line j of listing & return after cd field "DigitalSol"
  198.   end if
  199.   if first word of line j of listing is "IBM"
  200.   then
  201.   put second word of line j of listing & return after cd field "IBMSol"
  202. end if
  203. if first word of line j of listing is "Mac"
  204. then
  205. put second word of line j of listing & return after cd field "MacSol"
  206. end if
  207. if first word of line j of listing is "PC"
  208. then
  209. put second word of line j of listing & return after cd field "PCSol"
  210. end if
  211. if first word of line j of listing is "Tandem"
  212. then
  213. put second word of line j of listing & return after cd field "TandemSol"
  214. end if
  215. if first word of line j of listing is "UNIX"
  216. then
  217. put second word of line j of listing & return after cd field "UNIXSol"
  218. end if
  219. if first word of line j of listing is "Wang"
  220. then
  221. put second word of line j of listing & return after cd field "WangSol"
  222. end if
  223. end repeat
  224. set cursor to hand
  225. end limitEnv
  226.  
  227.  
  228. Digital
  229. IBM
  230. Mac
  231. PC
  232. Tandem
  233. UNIX
  234. Wang
  235. Communications
  236. Engineering/CAD
  237. Info Management
  238. Office Productivity
  239. Publishing
  240. Software Development
  241. Network Services
  242. Hardware
  243.  
  244. on mouseEnter
  245.   put "lists environments with solutions for the" & " Host/PC" into fld "Tell"
  246. end mouseEnter
  247.  
  248.  
  249. on mouseleave
  250.   put empty into fld "Tell"
  251. end mouseLeave
  252.  
  253.  
  254.  
  255.  
  256.  
  257. -- part contents for card part 2
  258. ----- text -----
  259. Communications
  260. Engineering/CAD
  261. Info Management
  262. Office Productivity
  263. Software Development
  264. Network Services
  265. Hardware
  266.  
  267.  
  268. -- part contents for card part 3
  269. ----- text -----
  270. Communications
  271. Info Management
  272. Network Services
  273.  
  274.  
  275. -- part contents for card part 4
  276. ----- text -----
  277. Communications
  278. Engineering/CAD
  279. Info Management
  280. Office Productivity
  281. Publishing
  282. Software Development
  283. Network Services
  284. Hardware
  285.  
  286.  
  287. -- part contents for card part 5
  288. ----- text -----
  289. Communications
  290. Engineering/CAD
  291. Info Management
  292. Office Productivity
  293. Publishing
  294. Network Services
  295. Hardware
  296.  
  297.  
  298. -- part contents for card part 7
  299. ----- text -----
  300. Engineering/CAD
  301. Info Management
  302. Office Productivity
  303. Network Services
  304.  
  305.  
  306. -- part contents for card part 8
  307. ----- text -----
  308. Engineering/CAD
  309.  
  310.  
  311. -- part contents for card part 6
  312. ----- text -----
  313. Network Services
  314.